home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / prog / pow11_0.arj / POWDEMO5.BAS < prev    next >
BASIC Source File  |  1994-01-19  |  851b  |  28 lines
  1. $link "pow.pbl"
  2. $include "pow.inc"
  3.  
  4.  
  5. 'Strum a harp using soundblaster.
  6. 'We'll use all 9 voices for this.
  7. 'Quick attack,slow release.
  8. '50 millisecond delay between each
  9. 'note on the "harp."
  10.  
  11. strum:
  12. sbfmclear 'Clear the Soundblaster
  13. for t%=0 to 2 'Strum it 3 times, with vibrato, changing harmonic each time.
  14.               'This produces a suitably heavenly sound.
  15.     for u%=1 to 9 'Change parameters for all channels
  16.         call    sbfmparms(u%,0,1,0,t%)
  17.     next u%
  18.     sbfmnote 1,345,4,240,4,1,0:sbdelay 50
  19.     sbfmnote 2,431,4,240,4,1,0:sbdelay 50
  20.     sbfmnote 3,515,4,240,4,1,0:sbdelay 50
  21.     sbfmnote 4,688,4,240,4,1,0:sbdelay 50
  22.     sbfmnote 5,345,6,240,4,1,0:sbdelay 50
  23.     sbfmnote 6,431,6,240,4,1,0:sbdelay 50
  24.     sbfmnote 7,515,6,240,4,1,0:sbdelay 50
  25.     sbfmnote 8,688,6,240,4,1,0:sbdelay 50
  26.     sbfmnote 9,345,8,240,4,1,0:sbdelay 50
  27.     sbdelay 250
  28. next t%